(defpackage #:lilu-dmenu-tests
  (:use #:cl #:fiveam #:lilu-dmenu))

(in-package #:lilu-dmenu-tests)

(def-suite lilu-dmenu-system
  :description "Test lilu-dmenu system")

(in-suite lilu-dmenu-system)

(test dmenu-version
      (let ((version (lilu-app:application-version
                      (lilu-app:find-application :dmenu nil nil))))
    (is (string= "5.0" version))))

(test rofi-version
      (let ((version (subseq
                      (lilu-app:application-version
                       (lilu-app:find-application :rofi nil nil))
                      0 3)))
    (is (string= "1.7" version))))

;;;
;;;
;;;

(defun run-tests ()
  (run! 'lilu-dmenu-system))
